home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / REFERENC / TPR / SOURCE.EXE / TYPED.PAS < prev   
Pascal/Delphi Source File  |  1992-08-07  |  1KB  |  30 lines
  1. { TYPED.PAS }
  2. type
  3.   TDataRecord = record
  4.                   Name        : String[20];
  5.                   PhoneNumber : String[14];
  6.                   Age         : Integer;
  7.                 end;
  8.  
  9. const
  10.   { Initializes a typed constant record }
  11.   SampleRecord : TDataRecord =
  12.                   (Name : 'Ed'; PhoneNumber : '555-1212'; Age : 32 );
  13.  
  14.   { Initializes a typed constant array }
  15.   SampleArray : Array [1..5] of Integer = (10, 20, 30, 40, 50);
  16.  
  17.   { Initializes a typed constant set }
  18.   SampleSet : Set of Byte = [1, 100, 200];
  19.  
  20.  
  21.   { Initializes a typed constant array of records }
  22.   DataRecords : Array[0..4] of TDataRecord
  23.  
  24.               = ( (Name : 'George'; PhoneNumber : '262-1234'; Age : 10 ),
  25.                   (Name : 'John'  ; PhoneNumber : '262-1235'; Age : 20 ),
  26.                   (Name : 'Lisa'  ; PhoneNumber : '262-1236'; Age : 22 ),
  27.                   (Name : 'Marcia'; PhoneNumber : '262-1237'; Age : 30 ),
  28.                   (Name : 'Gwen'  ; PhoneNumber : '262-1238'; Age : 4 ) );
  29.  
  30.